home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / DIFFSIMPDEMO.TXT < prev    next >
Text File  |  1988-11-18  |  2KB  |  31 lines
  1. 10 PI=3.141592#:F=(PI*SIN(5*X(0,0))/8-EXP(PI*SQR(X(0,0)+1)/8)+SQR(X(0,0)+PI*5/8))*SQR(1+PI*(X(0,0)-1)^2/8)/((EXP(-1*X(0,0)*X(0,0))-PI/4)*(1+PI*(X(0,0)+1)^2/8))+PI/8:RETURN:' 1 ALG TRANSCENDENTAL:C=-1:X=-.716398
  2.  
  3. 11 F=2*X(1,0)-3*X(2,0)-17:RETURN:' 2 ALG LINS:C=0,0:Xo=4,X1=-3
  4. 12 F=X(1,0)+X(2,0)-1:RETURN
  5.  
  6. 13 F=X(3,0)^2+X(3,0)*X(4,0)+X(4,0)^2-3:RETURN: ' 2  ALG TRANSCENDENTALS:C=0,0 :Xo=1.999,1.0636: X1=-.9537,.93459
  7. 14 F=SIN(X(3,0))-X(4,0)^2:RETURN
  8.  
  9. 15 F=X(5,1)-X(5,0)-T:RETURN:' 1st ORDER: C(J)=0:X=EXP T-T-1:X=.718281828 @T=1
  10.  
  11. 16 F=X(6,5)-X(6,1)-1:RETURN:' 5th ORDER:C(J)=0,0,1,1,1 :X=EXP T-T-1=.718281828 @T=1
  12.  
  13. 17 F=X(7,2)-2*X(8,0)+5*X(7,0):RETURN:'  2 SPRINGS: C(J)=5,0,0,0 :Xo=4 C0S[T SQR 6]+COS T=-2.539321 @T=1
  14. 18 F=X(8,2)-2*X(7,0)+2*X(8,0):RETURN:'                                         X1=-2 C0S[T SQR 6]+2 COS T=2.620416
  15.  
  16.  F=X(0,2)-SQR((2+X(1,0)*X(0,1))/8):RETURN:' CATENARY, 2nd+1st ORDER NONLIN : C(J)=2,0,0: Xo=2 COSH[T/2]=
  17.  F=X(1,1)-SQR(1+X(0,1)^2):RETURN:'                                                                                          X1=2SINH[T/2]=
  18.  
  19. 19 F=X(9,2)-X(9,0)*X(10,1)^2+2/X(9,0)^2:RETURN: 'ORBITS, 2 2nd ORDER NONLIN :C=3,0,0,.333333: Xo=9/[2+COS X1]
  20. 20 F=X(10,2)+2*X(9,1)*X(10,1)/X(9,0):RETURN
  21.  
  22. 21 GOSUB 740:F=X(11,2)-SIN((X(11,2)-(1+T)*SIN(T))/X(11,0)):RETURN:' IMPLICIT SIN, 2nd ORDER :C(J)=0,-1: X=-SIN T=-.8414709848 @T=1
  23. IF X(11,0)=0 THEN X(11,0)=.1
  24.  
  25. GOSUB 740:F=LOG(X(0,2))-(X(0,2)^2*LOG(X(0,0))+T*EXP(2*T))/(2*X(0,1)^2):RETURN:' IMPLICIT EXP, 2nd ORDER :C(J)=1,1: X=EXP T=2.718281828@T=1
  26.  IF X(0,1)=0 THEN X(0,1)=.1
  27.  IF X(0,2)<.1 THEN X(0,2)=.1
  28.  IF X(0,0)<.1 THEN X(0,0)=.1
  29.  
  30.                    DIFFSIMP EQUATIONS DEMONSTRATION: MACINTOSH LISTING
  31.